home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
F1 Licenseware
/
F1 Licenseware - Volume 1.iso
/
disks
/
045.dms
/
045.adf
/
str
/
STR23
< prev
next >
Wrap
Text File
|
1989-08-17
|
301b
|
1 lines
L R8= 2;J S; W:I RZ& 32J S;P;J W;S:L R8=R8+1;P;I R8=1 J A;I R8=2 J B;I R8=3 J C;L R8=0 J D;A: P; A 1,(18,1)(19,1)(20,1)(21,1);P;P;P;L RZ=0;J W;B: P; A 1,(22,1)(23,1)(24,1)(25,1);P;P;P;L RZ=0;J W;C: P; A 1,(26,1)(27,1)(28,1)(29,1);P;P;P;L RZ=0;J W;D: P; A 1,(30,1)(31,1)(32,1)(17,1);P;P;P;L RZ=0;J W;?